home *** CD-ROM | disk | FTP | other *** search
/ Delphi Programmer's Power Pack / Delphi Volume 1.iso / e_to_l / fbuilder / delphi / demos / fltdemfm.dfm / fltdemfm.txt
Encoding:
Text File  |  1996-09-15  |  8.0 KB  |  302 lines
  1. object Form1: TForm1
  2.   Left = 57
  3.   Top = 76
  4.   Width = 700
  5.   Height = 503
  6.   BorderIcons = [biSystemMenu, biMinimize]
  7.   Caption = 'FormulaBuilder 1.0 Data-Aware Demo'
  8.   Font.Color = clWindowText
  9.   Font.Height = -16
  10.   Font.Name = 'System'
  11.   Font.Pitch = fpVariable
  12.   Font.Style = []
  13.   PixelsPerInch = 120
  14.   Position = poScreenCenter
  15.   OnCreate = FormCreate
  16.   TextHeight = 20
  17.   object FilterLabel: TLabel
  18.     Left = 195
  19.     Top = 15
  20.     Width = 133
  21.     Height = 20
  22.     Caption = 'Filter Expression'
  23.     FocusControl = FilterPanel
  24.   end
  25.   object CustomerGrid: TDBGrid
  26.     Left = 15
  27.     Top = 75
  28.     Width = 661
  29.     Height = 171
  30.     DataSource = CustomerDataSource
  31.     Font.Color = clBlack
  32.     Font.Height = -17
  33.     Font.Name = 'Arial'
  34.     Font.Style = []
  35.     Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
  36.     ParentFont = False
  37.     TabOrder = 0
  38.     TitleFont.Color = clWindowText
  39.     TitleFont.Height = -13
  40.     TitleFont.Name = 'System'
  41.     TitleFont.Style = []
  42.   end
  43.   object FilterPanel: TPanel
  44.     Left = 195
  45.     Top = 35
  46.     Width = 421
  47.     Height = 31
  48.     Alignment = taLeftJustify
  49.     Font.Color = clBlack
  50.     Font.Height = -15
  51.     Font.Name = 'Arial'
  52.     Font.Pitch = fpVariable
  53.     Font.Style = []
  54.     ParentFont = False
  55.     TabOrder = 1
  56.   end
  57.   object ResultsPanel: TPanel
  58.     Left = 15
  59.     Top = 415
  60.     Width = 611
  61.     Height = 41
  62.     Alignment = taLeftJustify
  63.     Font.Color = clBlack
  64.     Font.Height = -15
  65.     Font.Name = 'MS Sans Serif'
  66.     Font.Pitch = fpVariable
  67.     Font.Style = []
  68.     ParentFont = False
  69.     TabOrder = 2
  70.   end
  71.   object OrdersGrid: TDBGrid
  72.     Left = 15
  73.     Top = 270
  74.     Width = 661
  75.     Height = 136
  76.     DataSource = OrdersDatasource
  77.     Font.Color = clBlack
  78.     Font.Height = -17
  79.     Font.Name = 'Arial'
  80.     Font.Pitch = fpVariable
  81.     Font.Style = []
  82.     Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
  83.     ParentFont = False
  84.     TabOrder = 3
  85.     TitleFont.Color = clWindowText
  86.     TitleFont.Height = -13
  87.     TitleFont.Name = 'System'
  88.     TitleFont.Pitch = fpVariable
  89.     TitleFont.Style = []
  90.   end
  91.   object Formula: TBitBtn
  92.     Left = 633
  93.     Top = 415
  94.     Width = 43
  95.     Height = 41
  96.     TabOrder = 4
  97.     OnClick = FormulaClick
  98.     Glyph.Data = {
  99.       78010000424D7801000000000000760000002800000020000000100000000100
  100.       04000000000000000000120B0000120B00000000000000000000000000000000
  101.       800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  102.       FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
  103.       333333333333333333333333333333333333333FFFFFFFFFFF33330000000000
  104.       03333377777777777F33333003333330033333377FF333377F33333300333333
  105.       0333333377FF33337F3333333003333303333333377FF3337333333333003333
  106.       333333333377FF3333333333333003333333333333377FF33333333333330033
  107.       3333333333337733333333333330033333333333333773333333333333003333
  108.       33333333337733333F3333333003333303333333377333337F33333300333333
  109.       03333333773333337F33333003333330033333377FFFFFF77F33330000000000
  110.       03333377777777777333333333333333333333333333333333330000}
  111.     NumGlyphs = 2
  112.     Style = bsNew
  113.   end
  114.   object BitBtn3: TBitBtn
  115.     Tag = 1
  116.     Left = 620
  117.     Top = 20
  118.     Width = 56
  119.     Height = 46
  120.     Font.Color = clBlack
  121.     Font.Height = -13
  122.     Font.Name = 'Arial'
  123.     Font.Pitch = fpVariable
  124.     Font.Style = []
  125.     ParentFont = False
  126.     TabOrder = 5
  127.     Kind = bkClose
  128.     Layout = blGlyphTop
  129.     Style = bsNew
  130.   end
  131.   object GroupBox1: TGroupBox
  132.     Left = 15
  133.     Top = 5
  134.     Width = 176
  135.     Height = 61
  136.     Caption = '&Filter'
  137.     TabOrder = 6
  138.     object FilterBtn: TBitBtn
  139.       Tag = 1
  140.       Left = 11
  141.       Top = 26
  142.       Width = 80
  143.       Height = 25
  144.       Caption = '&Edit'
  145.       TabOrder = 0
  146.       OnClick = FilterBtnClick
  147.       Glyph.Data = {
  148.         76010000424D7601000000000000760000002800000020000000100000000100
  149.         04000000000000010000130B0000130B00000000000000000000000000000000
  150.         800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  151.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
  152.         333333333333333FF3FF3333333333CC30003333333333773777333333333C33
  153.         3000333FF33337F33777339933333C3333333377F33337F3333F339933333C33
  154.         33003377333337F33377333333333C333300333F333337F33377339333333C33
  155.         3333337FF3333733333F33993333C33333003377FF33733333773339933C3333
  156.         330033377FF73F33337733339933C33333333FF377F373F3333F993399333C33
  157.         330077F377F337F33377993399333C33330077FF773337F33377399993333C33
  158.         33333777733337F333FF333333333C33300033333333373FF7773333333333CC
  159.         3000333333333377377733333333333333333333333333333333}
  160.       NumGlyphs = 2
  161.       Style = bsNew
  162.     end
  163.     object cbxApplyFilter: TCheckBox
  164.       Left = 98
  165.       Top = 30
  166.       Width = 68
  167.       Height = 18
  168.       Caption = '&Apply'
  169.       TabOrder = 1
  170.       OnClick = cbxApplyFilterClick
  171.     end
  172.   end
  173.   object CustomerTable: TTable
  174.     Active = True
  175.     DatabaseName = 'DBDEMOS'
  176.     IndexFieldNames = 'CustNo'
  177.     ReadOnly = True
  178.     TableName = 'CUSTOMER.DB'
  179.     Left = 20
  180.     Top = 128
  181.     object CustomerTableCustNo: TFloatField
  182.       DisplayWidth = 7
  183.       FieldName = 'CustNo'
  184.     end
  185.     object CustomerTableCompany: TStringField
  186.       DisplayWidth = 29
  187.       FieldName = 'Company'
  188.       Size = 30
  189.     end
  190.     object CustomerTableAddr1: TStringField
  191.       DisplayWidth = 30
  192.       FieldName = 'Addr1'
  193.       Size = 30
  194.     end
  195.     object CustomerTableCity: TStringField
  196.       DisplayWidth = 15
  197.       FieldName = 'City'
  198.       Size = 15
  199.     end
  200.     object CustomerTableState: TStringField
  201.       DisplayWidth = 6
  202.       FieldName = 'State'
  203.     end
  204.     object CustomerTableZip: TStringField
  205.       DisplayWidth = 10
  206.       FieldName = 'Zip'
  207.       Size = 10
  208.     end
  209.     object CustomerTableCountry: TStringField
  210.       DisplayWidth = 15
  211.       FieldName = 'Country'
  212.     end
  213.     object CustomerTablePhone: TStringField
  214.       DisplayWidth = 15
  215.       FieldName = 'Phone'
  216.       Size = 15
  217.     end
  218.     object CustomerTableFAX: TStringField
  219.       DisplayWidth = 15
  220.       FieldName = 'FAX'
  221.       Size = 15
  222.     end
  223.     object CustomerTableTaxRate: TFloatField
  224.       DisplayWidth = 8
  225.       FieldName = 'TaxRate'
  226.     end
  227.     object CustomerTableContact: TStringField
  228.       DisplayWidth = 20
  229.       FieldName = 'Contact'
  230.     end
  231.     object CustomerTableLastInvoiceDate: TDateTimeField
  232.       DisplayWidth = 15
  233.       FieldName = 'LastInvoiceDate'
  234.     end
  235.   end
  236.   object CustomerDataSource: TDataSource
  237.     DataSet = CustomerTable
  238.     OnDataChange = CustomerDataSourceDataChange
  239.     Left = 47
  240.     Top = 128
  241.   end
  242.   object OrdersDatasource: TDataSource
  243.     DataSet = OrdersTable
  244.     OnDataChange = OrdersDatasourceDataChange
  245.     Left = 134
  246.     Top = 253
  247.   end
  248.   object OrdersTable: TTable
  249.     Active = True
  250.     DatabaseName = 'DBDEMOS'
  251.     IndexFieldNames = 'CustNo'
  252.     MasterFields = 'CustNo'
  253.     MasterSource = CustomerDataSource
  254.     TableName = 'ORDERS.DB'
  255.     Left = 169
  256.     Top = 253
  257.     object OrdersTableCustNo: TFloatField
  258.       DisplayWidth = 8
  259.       FieldName = 'CustNo'
  260.     end
  261.     object OrdersTableOrderNo: TFloatField
  262.       DisplayWidth = 8
  263.       FieldName = 'OrderNo'
  264.     end
  265.     object OrdersTableItemsTotal: TCurrencyField
  266.       DisplayWidth = 12
  267.       FieldName = 'ItemsTotal'
  268.       Currency = True
  269.     end
  270.     object OrdersTableFreight: TCurrencyField
  271.       DisplayWidth = 11
  272.       FieldName = 'Freight'
  273.       Currency = True
  274.     end
  275.     object OrdersTableAmountPaid: TCurrencyField
  276.       DisplayWidth = 14
  277.       FieldName = 'AmountPaid'
  278.       Currency = True
  279.     end
  280.     object OrdersTablePaymentMethod: TStringField
  281.       DisplayWidth = 16
  282.       FieldName = 'PaymentMethod'
  283.       Size = 7
  284.     end
  285.   end
  286.   object CustomerFilter: TDSFilter
  287.     UseExceptions = False
  288.     Active = False
  289.     AutoRefresh = False
  290.     Datasource = CustomerDataSource
  291.     LoadActivated = True
  292.     Priority = 1
  293.     Left = 75
  294.     Top = 125
  295.   end
  296.   object DBExpression: TDBExpression
  297.     UseExceptions = False
  298.     Left = 510
  299.     Top = 415
  300.   end
  301. end
  302.